title image


Smiley hier mein Code
Hallo Joi,



hier mein Makro:







Sub Protect()





Dim Tabelle As Worksheet

Dim objMSR As Object

Dim intPopUp As Integer



Set objMSR = CreateObject("WScript.shell")



On Error GoTo Fehler

Application.ScreenUpdating = False

For Each Tabelle In ActiveWorkbook.Worksheets

Tabelle.Protect "TEST"

Next Tabelle

Set Tabelle = Nothing

Application.ScreenUpdating = True

intPopUp = objMSR.popup("Blattschutz ist gesetzt!", 1)

Exit Sub

Fehler:

MsgBox "Blattschutz konnte nicht gesetzt werden. Evtl. Gruppierung lösen."

End Sub



Sub Unprotect()



Dim Tabelle As Worksheet

Dim objMSR As Object

Dim intPopUp As Integer



Set objMSR = CreateObject("WScript.shell")



On Error GoTo Fehler



Application.ScreenUpdating = False

For Each Tabelle In ActiveWorkbook.Worksheets

Tabelle.Unprotect "TEST"

Next Tabelle

Set Tabelle = Nothing

Application.ScreenUpdating = True

intPopUp = objMSR.popup("Blattschutz ist aufgehoben!", 1)

Exit Sub

Fehler:

MsgBox "Blattschutz konnte nicht aufgehoben werden. Evtl. Gruppierung lösen."

End Sub







Gruß

Michael

 

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: