d3ns007
Goto Top

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:

 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

Content-ID: 160891

Url: https://administrator.de/contentid/160891

Ausgedruckt am: 25.11.2024 um 10:11 Uhr