Wie kann man in einem Makro definieren das ein über .dot geöffnetes Dokument als .doc keine Makros mehr enthält?
Zur Erklärung: Wir haben in unserem Unternehmen Officedokumente (meist Word) bei denen Makros hinterlegt sind. Diese Makro ziehen automatisiert Benutzerinfommationen aus unserem LDAP von dem User der das Dokument gerade öffnet.
Hallo Miteinander,
die Problematik besteht darin das User die nicht in unserer Domäne sind Probleme haben die Dokumente von uns zu öffnen. Das Makro versucht immer eine Verbindung zu unserer Domäne herzustellen und aus unserem LDAP die Benutzerinformationen zu ziehen (dabei bleibt der PC hängen und man muss seinen PC neustarten).
Ich dachte das Problem schon gelöst zu haben da wir ein IF-Klausel um den Code gebaut haben die nur Domänen-Mitgliedern die Abfrage genehmigt:
Unter MS Visual Basic=> Document => New haben wird diesen Code eingegeben:
Ziel ist das der User ein .dot (also Vorlage aufmacht) und dann in der daraus resultierenden .doc keine Makros mehr funktionieren bzw. das Makro nicht mehr nach unserem LDAP sucht.
Weiß zufällig jemand einen Rat?
Wäre für jede Hilfe dankbar!
Grüße
Hallo Miteinander,
die Problematik besteht darin das User die nicht in unserer Domäne sind Probleme haben die Dokumente von uns zu öffnen. Das Makro versucht immer eine Verbindung zu unserer Domäne herzustellen und aus unserem LDAP die Benutzerinformationen zu ziehen (dabei bleibt der PC hängen und man muss seinen PC neustarten).
Ich dachte das Problem schon gelöst zu haben da wir ein IF-Klausel um den Code gebaut haben die nur Domänen-Mitgliedern die Abfrage genehmigt:
Unter MS Visual Basic=> Document => New haben wird diesen Code eingegeben:
Private Sub Document_New()
Set objSystemInfo = CreateObject("ADSystemInfo")
If objSystemInfo.DomainDNSName = "DOMÄNE" Then
Set objUser = GetObject("LDAP://" & objSystemInfo.UserName)
ActiveDocument.Variables("Benutzername") = objUser.FirstName & " " & objUser.LastName
ActiveDocument.Variables("abteilung") = objUser.department
ActiveDocument.Variables("phone") = objUser.telephonenumber
ActiveDocument.Variables("fax") = objUser.facsimileTelephoneNumber
ActiveDocument.Variables("mail") = objUser.EmailAddress
ActiveDocument.Fields.Update
ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Fields.Update
ActiveDocument.StoryRanges(wdPrimaryFooterStory).Fields.Update
End If
End Sub
Ziel ist das der User ein .dot (also Vorlage aufmacht) und dann in der daraus resultierenden .doc keine Makros mehr funktionieren bzw. das Makro nicht mehr nach unserem LDAP sucht.
Weiß zufällig jemand einen Rat?
Wäre für jede Hilfe dankbar!
Grüße
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 160891
Url: https://administrator.de/contentid/160891
Ausgedruckt am: 25.11.2024 um 10:11 Uhr