Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VB Projekt auswählen

Forumthread: VB Projekt auswählen

VB Projekt auswählen
30.11.2015 13:32:31
kurt
Hallo zusammen,
ich erstelle per Makro (aus Forum) eine neue Datei.
Nun möchte ich im VB Modul direkt die neue Datei auswählen
um da einen Schutz zu setzen.
Ich lande immer auf meiner Personal VB Datei.
Gruß
kurt p

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VB Projekt auswählen
30.11.2015 13:49:56
Rudi
Hallo, 
set wbNeu = workbooks.add
wbNeu.sheets(1).protect "Passwort"
Gruß
Rudi

AW: VB Projekt auswählen
30.11.2015 14:09:44
kurt
Hallo Rudi,
in meinem Excel 2007 und Windows10 klappt es aber
in Excel 2007 und Windows 7 leider nicht.
gruß
kurtp

AW: VB Projekt auswählen
30.11.2015 16:00:48
Rudi
in Excel 2007 und Windows 7 leider nicht.
bei mir schon.
Gruß
Rudi

Anzeige
Versteh ich nicht
01.12.2015 10:26:22
kurt
Guten Morgen Rudi,
versteh es nicht.
Habe Rechner mit Windows7 einwandfrei.
Habe Rechner mit Windows10 da nicht.
Es wird auch nicht das VB Passwort eingegeben.
Würde mich freuen wenn Du eine Lösung hast.
<b>Habe gerade festgestellt, das nach schließen vb project modul
angezeigt wird und der Curser auf meiner VBAProject (Personal.xls) steht
und diese geschützt wurde !!!</b><i></i>
Anbei mein Makro:
ActiveSheet.Application.ScreenUpdating = False
'----- jetzt schutz setzen --------------
Dim akw As String
akw = ActiveWorkbook.Name
' MsgBox akw
Dim Password As String
Password = "kp"
Dim vbext_pp_none
Dim wb As Workbook, ok As Boolean, s As String
Set wb = Application.Workbooks(akw)
SendKeys "%{F11}^r{Tab}", True
Do While Application.VBE.ActiveVBProject.Filename <> wb.FullName
''Cursor im Projekt-Explorer-Fenster auf das nächste Projekt setzen _
bis er auf dem aktuelle Projekt der zu entschützenden Arbeitsmappe steht
SendKeys "{Tab}", True
Loop
If wb.VBProject.Protection = vbext_pp_none Then '--> ist wichtig
SendKeys "%xi"
SendKeys "{TAB 9}"
SendKeys "{RIGHT}"
SendKeys "{TAB}"
SendKeys " "
SendKeys "{TAB}"
SendKeys Password
SendKeys "{TAB}"
SendKeys Password
SendKeys "{TAB}"
SendKeys "{Enter}"
SendKeys "%{F11}", True '--> ist wichtig
wb.Save
wb.Saved = True
wb.Close
Set wb = Nothing
ActiveSheet.Application.ScreenUpdating = False
End If
mfg
kurt p

Anzeige
Ist doppelt. -)
03.12.2015 21:31:23
Kurt
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige