VB Projekt auswählen

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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VB Projekt auswählen

30.11.2015 13:49:56

Rudi
AW: VB Projekt auswählen

30.11.2015 14:09:44

kurt
AW: VB Projekt auswählen

30.11.2015 16:00:48

Rudi
Versteh ich nicht

01.12.2015 10:26:22

kurt
Ist doppelt. -)

03.12.2015 21:31:23

Kurt

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

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

Ist doppelt. -)

03.12.2015 21:31:23

Kurt

Beliebteste Forumthreads (12 Monate)

Forumthread: VB Projekt auswählen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread