PDA

Vollständige Version anzeigen : MSG-Box wenn Makro nicht läuft


nukleus
20.07.2014, 11:19
Hallo liebes Forum.

Ich brauche wieder mal Eure Hilfe:

In einem Excelsheet blende ich über je ein Makro Spalten aus oder ein. Wenn die Mappe geschlossen wird, dann wird dieses Sheet mit einem Kennwort geschützt. Somit funktioniert das einblenden natürlich nicht mehr, das ist so gewollt.
Ruft man das Makro zum einblenden auf, erscheint natürlich eine Fehlermeldung, da zu diesem Zeitpunkt der Schreibschutz noch aktiv ist. Ich möchte nun statt der Fehlermeldung eine Msg-Box einblenden, in der ich auf das geschützte Blatt hinweisen kann.
Also theoretisch so: Wenn das Makro nicht laufen kann, dann die Msg-Box einblenden.

Danke Euch schon mal für die Hilfe und nicht sauer sein, wenn ich erst morgen auf Eure Tips antworten kann.

LG

tkwhm

Hajo_Zi
20.07.2014, 11:24
Tabellenschutz

If ActiveSheet.ProtectContents = False Then
MsgBox "nicht geschützt"
Else
MsgBox "geschützt"
End If


<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

nukleus
20.07.2014, 11:41
Genau das,

Danke!!!