Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Projektname ändert sich

Projektname ändert sich
23.11.2005 16:18:31
Patrick
Hallo,
ich habe im Forum ein Makro gefunden, mit dem man den Projektschutz deaktivieren und aktivieren kann.
Das Problem ist aber, daß dieses Makro den Namen des Projektes in "i" ändert. Das soll natürlich nicht passieren. Zumal ich eine Variabel habe, die "i" heißt und dann das Programm nicht mehr geht, da der Variablenname nicht gleich dem des Projektes sein kann.
Wer kann mir helfen?

Sub UnlockedVBAProject()
If Val(Application.Version) > 8 Then
SendKeys _
"%{F11}%xi+{TAB}{RIGHT}{TAB} {TAB}" & _
"{BACKSPACE}{TAB}{BACKSPACE}{TAB}{ENTER}%{q}"
End If
End Sub


Sub LockedVBAProject()
If Val(Application.Version) > 8 Then
SendKeys _
"%{F11}%xi+{TAB}{RIGHT}{TAB} {TAB}" & _
"Paßwort" & "{TAB}" & "Paßwort" & "{TAB}{ENTER}%{q}"
End If
End Sub

Danke.
Patrick

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Projektname ändert sich
23.11.2005 18:03:44
Herbert
hallo Patrik,
das aktivieren funktioniert,
das deaktivieren funktioniert bei mir nur so:


Sub UnlockedVBAProject()
Application.ScreenUpdating = False
   If Val(Application.Version) > 8 Then
      SendKeys _
         "%{F11}%xi" "heri" "{TAB}{ENTER}" & _
         "{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}"
   End If
End Sub

     der Editor muß geschlossen sein...
gruß Herbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige