Nutzung von VBComponents.Remove und .Import
26.09.2007 14:55:00
VBComponents.Remove
habe ein Makro geschrieben, mit dem ich Updates an einem Modul, das in einem Template hinterlegt ist, per Knopfdruck ausführen kann:
Sub ModuleCodeUpdate()
'Löscht die vorhandenen Module aus dem aktiven Workbook
On Error Resume Next
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul1")
End With
'Import Module
Application.VBE.ActiveVBProject.VBComponents.Import _
"Serverpfad\Module\Modul1.bas"
End Sub
Dieses Makro liegt hinter einem CommandButton in mehreren Dateien, die bei Usern in Anwendung sind. Nun gibt es leider zwei Barrieren, die zu verhindern scheinen, dass man dieses Update "einfach so" ausführen kann:
Erstens ist die Datei bei den Usern im Modus "freigegeben" und zweitens ist die VB-Umgebung mit einem Passwort geschützt (Lese- und Schreibschutz).
Meine Fragen sind: Kann man durch ein Makro den Status "Arbeitsmappe freigeben" aus- und wieder einschalten? Kann man den Modulimport durchführen, indem durch das Makro der Schreibschutz der VB-Umgebung aufgehoben wird?
Wäre mir eine Riesenhilfe, wenn jemand einen Tipp hätte, wie das funktioniert! Vielen Dank dafür!
Grüße,
Jochen