Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Projektname ändert sich

Forumthread: 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
Anzeige

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
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