title image


Smiley Re: Blattschutz aufheben für ALLE Blätter?!
Hi ZooN,

schreib folgenden Code in ein Modul Deiner Personal.xls:



Sub AlleEntschuetzen()

For Each ws In ActiveWorkbook.Worksheets

ws.Unprotect ("Password")

Next

End Sub



Mach Dir dann einen Button in die Toolbar oder einen Menüpunkt, den Du mit dem Macro verlinkst.

cu

BCM

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: