title image


Smiley Habe Hajos Makro für gruppierte Tabellenblätter ergänzt....
Hallo joi2,



aus Deiner ursprünglichen Anfrage ging nicht hervor, dass Du den Schutz für gruppierte Tabellenblätter setzen/aufheben möchtest.

Ich habe Hajos Makro dahingehend ergänzt :

Option Explicit

Dim WsTabelle As Worksheet

Dim TBLSel, TblAkt As Object

Const pw = "Passwort"

Sub SchutzSetzen()

    Set TBLSel = ActiveWindow.SelectedSheets

    Set TblAkt = ActiveSheet

    For Each WsTabelle In TBLSel

        WsTabelle.Select

        WsTabelle.Protect pw

    Next WsTabelle

    TblAkt.Select

    TBLSel.Select

    Set TBLSel = Nothing

    Set TblAkt = Nothing

End Sub

Sub SchutzAufheben()

    Set TBLSel = ActiveWindow.SelectedSheets

    Set TblAkt = ActiveSheet

    For Each WsTabelle In TBLSel

        WsTabelle.Select

        WsTabelle.Unprotect pw

    Next WsTabelle

    TblAkt.Select

    TBLSel.Select

    Set TBLSel = Nothing

    Set TblAkt = Nothing

End Sub

Code eingefügt mit Syntaxhighlighter 4.0




Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: