Hej

Jag skriver ett ansökningsformulär i XL2000 där jag har skrivskyddat bladen för att inte användaren skall kunna ändra layout, formler etc. Jag har skrivit ett makro som skapar ett nytt blad genom att kopiera ett gömt blad som fungerar som macro. Mitt problem är att jag får upp en dialog som frågar om jag vill ta bort skrivskyddet för bladet. Har försökt att stänga av DisplayAlerts, utan framgång. Är det någon som kan bistå med en lösning eller en workaround är jag tacksam.

//Jens-Jonathan

Hej

Jag är inte helt säker på hur du menar, men om du kopierar ett skyddat blad med
din kod och får en fråga om du vill ta bort skyddet så kan du kanske redan i koden
först låsa upp bladet sen kopiera och sist låsa bladet igen.
Sen kan du ju, om du vill, även lösenordsskydda kopian.

Du måste då lägga in lösenordet i koden. För att då skydda koden så ingen kan gå
in och helt enkelt läsa lösenordet så måste du även lösenordsskydda ditt VBAProjekt.

Lås upp
ActiveSheet.Unprotect "password"

Lås
ActiveSheet.Protect "password", DrawingObjects:=True, Contents:=True, Scenarios:=True


Mvh/Olof