My Online Training Hub

Learn Dashboards, Excel, Power BI, Power Query, Power Pivot

Hide Quick Access Toolbar in new excel update|VBA & Macros|Excel Forum|My Online Training Hub

You are here: Home / Hide Quick Access Toolbar in new excel update|VBA & Macros|Excel Forum|My Online Training Hub

office scripts course

Avatar
sp_LogInOut Log In sp_Registration Register
sp_Search Search
Advanced Search|Last Search Results
Search
Forum Scope



Match



Forum Options



Minimum search word length is 3 characters - maximum search word length is 84 characters
sp_Search Search
sp_RankInfo
Lost password?
sp_PrintTopic sp_TopicIcon
Hide Quick Access Toolbar in new excel update
Avatar
Steven Behr
Member
Members

Power Query
Level 0
Forum Posts: 85
Member Since:
January 30, 2020
sp_UserOfflineSmall Offline
1
November 17, 2021 - 1:38 pm
sp_Permalink sp_Print sp_EditHistory

Afternoon All,

 

I have just noticed the new version of excel 365 that when I open my database it shows the quick access toolbar.

Because I dont want anybody mucking around with the database I was wondering is there a code to either disable/hide the quick access toolbar from showing when the database is open.

 

I have a few codes that I have used previously such as

Private Sub Workbook_Open() Set myRange = ActiveSheet Application.ScreenUpdating = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" Application.DisplayFormulaBar = False Application.DisplayStatusBar = Not Application.DisplayStatusBar ActiveWindow.DisplayWorkbookTabs = False
But this does not give me Application.DisplayQuickaccess = False

Or is there a way in Custom UI to disable it

Can anyone shed some light into this please. Is there a code where I can disbale Quick access toolbar?

Thanks

Steve
sp_AnswersTopicSeeAnswer See Answer
Avatar
Anders Sehlstedt
Eskilstuna, Sweden

VIP
Members


Trusted Members
Level 3
Forum Posts: 880
Member Since:
December 7, 2016
sp_UserOfflineSmall Offline
2
November 21, 2021 - 6:21 am
sp_Permalink sp_Print

Hello,

See if the info in this Microsoft support page gives any help.

Br,
Anders

sp_AnswersTopicAnswer
Answers Post
Avatar
Steven Behr
Member
Members

Power Query
Level 0
Forum Posts: 85
Member Since:
January 30, 2020
sp_UserOfflineSmall Offline
3
November 22, 2021 - 10:25 am
sp_Permalink sp_Print

Yes Thanks Anders,

It looks like I cant but I can disable the all the buttons relating to the Quick access tool bar.

For example SAVE AS:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"
Application.ThisWorkbook.Worksheets("TitlePage").Activate
Range("A1").Select
If SaveAsUI Then
MsgBox "Save As is disabled", vbInformation
Cancel = True
End If

End Sub

Or email or other buttons that relate to the workbook.

 

Anyway thanks for the help

sp_Feed
Go to top
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: Catalin Bombea, Riny van Eekelen, Sheryl Gill, Rob Starren, Sheilah Taylor
Guest(s) 10
Currently Browsing this Page:
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 880
Purfleet: 414
Frans Visser: 346
David_Ng: 306
lea cohen: 237
Jessica Stewart: 219
A.Maurizio: 213
Aye Mu: 201
jaryszek: 183
Newest Members:
Sheilah Taylor
Clare Webber
David Jenssen
Dominic Brosnahan
Young You
Jennifer Owens
Mohamed Touahria
Sheila McCall
Nicholas Montano
John Babcock
Forum Stats:
Groups: 3
Forums: 24
Topics: 6524
Posts: 28549

 

Member Stats:
Guest Posters: 49
Members: 32803
Moderators: 2
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: Velouria, Riny van Eekelen