Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Hilfe

Forumthread: VBA Hilfe

VBA Hilfe
27.02.2009 11:54:44
Micha
Hallo liebe Spezialisten,
Durch den unten stehenden Code wird die MsgBox beim öffnen der schreibgeschützten Datei aktiviert.
Ich möchte das die Warnung aber erst bei der ersten Zelleingabe angezeigt wird.
Könnt Ihr mir helfen?
Gruß
Micha

Private Sub Workbook_Open()
If Me.ReadOnly Then
MsgBox "Achtung, die Datei ist schreibgeschützt", vbExclamation, "Warnung"
End If
End Sub


Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Hilfe
27.02.2009 12:04:31
Ramses
Hallo
"..aber erst bei der ersten Zelleingabe angezeigt wird...."
Warum vergibst du dann nicht einfach einen Blattschutz,... dann kommt das automatisch.
Gruss Rainer
AW: VBA Hilfe
27.02.2009 12:06:12
Renee
Hi Micha,
Diesen Code in DieseArbeitsmappe:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Static bMsgDone As Boolean
If ThisWorkbook.ReadOnly And Not (bMsgDone) Then
MsgBox "Achtung, die Datei ist schreibgeschützt", vbExclamation, "Warnung"
bMsgDone = True
End If
End Sub


GreetZ Renée

Anzeige
noch eine Version
27.02.2009 12:22:04
Tino
Hallo,
kommt als Code in die DieseArbeitsmappe 
Option Explicit 
 
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
 
If Me.ReadOnly And Not MsgboxAnzeige Then 
    MsgBox "Achtung, die Datei ist schreibgeschützt", vbExclamation, "Warnung" 
    MsgboxAnzeige = True 
End If 
 
End Sub

in ein Modul 

Option Explicit 
 
Public MsgboxAnzeige As Boolean


Gruß Tino

Anzeige
AW: noch eine Version
27.02.2009 13:04:09
Micha
Hallo,
Super, beide Versionen klappen einwandfrei:-)
Vielen Dank :-)
Gruß
Micha
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige