toolbar ausschalten, adressbar eingeschalten

Sub ERMITTELN()   'INTERNETBILD FESTLEGEN WO LIEGT ES
Dim objIE1 As Object
Set objIE1 = CreateObject("InternetExplorer.Application") ' Für IE Fenster 1
objIE1.Top = 0                                         ' Position von oben
objIE1.Left = 0                                     ' Position von links
objIE1.Width = 1280          '   1280   1280                     ' Fenster breite
objIE1.Height = 1024           '     800   1024                ' Fensterhöhe
objIE1.Visible = True                                     ' Objekt für IE Fenster 1
objIE1.Navigate "http://books.google.de/books" ' Objekt für IE Fenster Adresse ORGINAL
'objIE1.fullscreen = True
objIE1.Toolbar = 3 '
objIE1.addressbar = True
'end 

Sub                '   Apostroph entfernen nicht vergessen
'****  bis hierhin kopieren  ************
' Nach Beendigung des Codes sollten die zwei Objecte gelöscht werden
'objE1.Exit
' info das gleich nur mit yesno schleife, wenn es denn benötigt wird
Do While Not objIE1.ReadyState = 4
DoEvents
Loop
MsgBox " Alles ok"
objIE1.Quit
'Set Internet = Nothing
End Sub


'***************************