title image


Smiley Re: Schützen mehrerer Arbeitsblätter
Hallo Stefan,



geht per VBA. Die beiden Subs schützen (bzw. heben den Schutz auf) alle Register mit dem Passwort TEST.



CU

Michael





Sub Protect()





Dim Tabelle As Worksheet



Application.ScreenUpdating = False





For Each Tabelle In ActiveWorkbook.Worksheets



Tabelle.Protect "TEST"



Next Tabelle



Set Tabelle = Nothing



Application.ScreenUpdating = True



MsgBox "Blattschutz ist gesetzt!"



End Sub



Sub Unprotect()



Dim Tabelle As Worksheet



Application.ScreenUpdating = False



For Each Tabelle In ActiveWorkbook.Worksheets



Tabelle.Unprotect "TEST"



Next Tabelle



Set Tabelle = Nothing



Application.ScreenUpdating = True



MsgBox "Blattschutz ist aufgehoben!"



End Sub




 

Man wird nicht Patrizier wenn man weiß wie die Dinge funktionieren, sondern wenn man weiß wie Menschen funktionieren. (frei nach Terry Pratchett)

 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: