How to hide built in ribbons (1 Viewer)

Public Sub CopyCutPaste()
    Dim cmbRC  As CommandBar
    Dim cmbButtonCopy As CommandBarButton
    Dim cmbButtonCut As CommandBarButton
    Dim cmbButtonPaste As CommandBarButton
    Dim strBarName As String
    strBarName = "CopyCutPaste"

    On Error Resume Next
    CommandBars(strBarName).Delete
    On Error GoTo 0

    Set cmbRC = CommandBars.Add(strBarName, msoBarPopup, False)


    Set cmbButtonCut = cmbRC.Controls.Add(msoControlButton, 19)
    Set cmbButtonCopy = cmbRC.Controls.Add(msoControlButton, 21)
    Set cmbButtonPaste = cmbRC.Controls.Add(msoControlButton, 22)


    'Cleanup
    Set cmbRC = Nothing

    Set cmbButtonCopy = Nothing
    Set cmbButtonCut = Nothing
    Set cmbButtonPaste = Nothing
End Sub

Public Sub RightClick(frm As Form)
    On Error GoTo err
    Dim ctl    As control

    For Each ctl In frm.Controls
        If ctl.Enabled = True Then
            If TypeOf ctl Is TextBox Then
                ctl.ShortcutMenuBar = "CopyCutPaste"
            End If
            If TypeOf ctl Is ComboBox Then
                ctl.ShortcutMenuBar = "CopyCutPaste"
            End If
        End If
skip:
    Next ctl
    Exit Sub
err:
    If err.Number = 438 Then Resume skip              'object does not support this property
    ReportError err.Number, err.Description, "mdlMSLRoutines | RightClick"
End Sub

	<backstage>
		<tab idMso ="TabInfo" visible="false"/>  
		<tab idMso ="TabRecent" visible="false"/>
		<tab idMso ="TabNew" visible="false"/>
		<tab idMso ="TabPrint" visible="false"/>
		<tab idMso ="TabShare" visible="false"/>
		<tab idMso ="TabHelp" visible="false"/>
		<button idMso="SaveObjectAs" visible="false"/>
		<button idMso="FileSaveAsCurrentFileFormat" visible="false"/>
		<button idMso="FileOpen" visible="false"/>
		<button idMso="FileCloseDatabase" visible="false"/>
		<button idMso="ApplicationOptionsDialog" visible="false"/>
		<button idMso="FileExit" visible="false"/>


		<tab id="bsTab1" label="About">
			<firstColumn>
				<taskGroup id="bsTaskGroup1" label=" " />
				<group id="slabBtnInfo" label="Sample Database SampleRibbon 4 for Access 2010" style="warning" >
					<topItems>
						<layoutContainer id="layInfo" layoutChildren="vertical" align="topLeft">
							<imageControl id="imgAbout" image="Ribbon_getImage" />
							<imageControl id="imgAbout2" image="D:\GalOn\ACCDB\icons\clip_icon.bmp" />
							<hyperlink id="hlnk1" label="Google" target="http://www.google.com"/>
							<hyperlink id="hlnk2" label="Send mail" target="mailto:info@accessribbon.com"/>
						</layoutContainer>
					</topItems>
				</group>
				<group id="grpAboutLicense1" label="License gave to:" [COLOR="Red"]gethelperText="Ribbon_GetHelperText1"[/COLOR] style="normal">
					<bottomItems>
						<labelControl id="LblAboutLicense4" getLabel="Ribbon_GetLabel"/>
						<labelControl id="LblAboutLicense5" label=" "/>
					</bottomItems>
				</group>
				<group id="grpAboutLicense2" label="License end date:" [COLOR="red"]gethelperText="Ribbon_GetHelperText2"[/COLOR] style="error">
					<bottomItems>
						<labelControl id="LblAboutLicense6" label=" "/>
						<labelControl id="LblAboutLicense7" label=" "/>
						<labelControl id="LblAboutLicense8" label=" "/>
					</bottomItems>
				</group>
			</firstColumn>
		</tab>


		<button id="BScmdQuit" 
				label="Quit"
				imageMso="OutOfOffice"
				onAction="Ribbon_OnAction"/>
	</backstage>

Public Sub Ribbon_GetHelperText1(control As IRibbonControl, helperText)

    On Error GoTo err

        helperText = "GetHelperText1"

    Exit Sub
err:
    Debug.Print err.Description
End Sub

Public Sub Ribbon_GetHelperText2(control As IRibbonControl, helperText)

    On Error GoTo err

        helperText = "GetHelperText2"

    Exit Sub
err:
    Debug.Print err.Description
End Sub

Public Sub Ribbon_GetHelperText(control As IRibbonControl, helperText)

    On Error GoTo err

Select Case control.ID
    Case "grpAboutLicense1"
        helperText = str_grpAboutLicense1
    Case "grpAboutLicense2"
        helperText = str_grpAboutLicense2
    Case Else
End Select


    Exit Sub
err:
    Debug.Print err.Description
End Sub