title image


Smiley Re: Blattschutz bei 50 Blätter
Hallo joi,





Option Explicit

Dim WsTabelle As Worksheet



Private Sub Aufheben()

For Each WsTabelle In Sheets

WsTabelle.Unprotect ("Passwort")

Next WsTabelle

End Sub



Private Sub Schutz()

For Each WsTabelle In Sheets

WsTabelle.Protect ("Passwort")

Next WsTabelle

End Sub








 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: