- Este tópico contém 3 respostas, 2 utilizadores e foi actualizado pela última vez há 12 anos, 7 meses por Anónimo.
-
AutorArtigos
-
-
8 de Setembro de 2011 às 10:10 #993AnónimoInactivo
galerinha,
alguem sabe como desabilitar apenas o salvar ??
a programação abaixo desabilita o salvar e o salvar como … eu keria apenas o salvar..
private sub workbook_beforesave(byval saveasui as boolean, cancel as boolean)
dim senha as string
senha = “1234”if inputbox(“digite a senha para salvar, ou em branco apenas fecha.”, “proteção”) = senha then
exit sub
else
if saveasui = true then
msgbox “não é permitido ‘salvar como‘”
cancel = true
exit sub
end ifif saveasui = false then
msgbox “não é permitido ‘salvar‘”
cancel = true
exit sub
end if
end if
end sub -
9 de Setembro de 2011 às 14:44 #1725AnónimoInactivo
buenas ,wagner…
vc pode desabilitar os botões>>
vou postar o link.. se lhe ajudar já e um caminho!!
boa sorte!!
-
9 de Setembro de 2011 às 15:39 #1726AnónimoInactivo
marcelo,
existe uma programação ao qual apenas oculta a barra de ferramenta. não é isso que estou precisando.
existe uma outra programação (abaixo) que não está funcionando .. fica depurando no “function” .. vc consegue ver onde estou errando??
‘ declarar as api que vamos utilizar
private declare function getsystemmenu lib “user32” (byval hwnd as long, byval brevert as long) as long
private declare function getmenuitemcount lib “user32” (byval hmenu as long) as long
private declare function drawmenubar lib “user32” (byval hwnd as long) as long
private declare function removemenu lib “user32” (byval hmenu as long, byval nposition as long, byval wflags as long) as longconst mf_byposition = &h400&
const mf_remove = &h1000&global const gwl_style = (-16)
global const ws_sysmenu = &h80000‘sem as declarações abaixo as macros para retirar e repor os botões não funcionará
declare function findwindow32 lib “user32” alias “findwindowa” (byval lpclassname as any, byval lpwindowname as any) as integer
declare function getwindowlong32 lib “user32” alias “getwindowlonga” (byval hwnd as integer, byval nindex as integer) as long
declare function setwindowlong32 lib “user32” alias “setwindowlonga” (byval hwnd as integer, byval nindex as integer, byval dwnewlong as long) as longsub desabilitax()
dim hsysmenu as long, ncnt as long
‘ obtém o handle para o menu de sistema do form _ application
hsysmenu = getsystemmenu(application.hwnd, false)if hsysmenu then
‘ obtém a contagem de itens do menu de sistema
ncnt = getmenuitemcount(hsysmenu)
if ncnt then
‘ contagem começa com 0 (0, 1, 2, 3…)
removemenu hsysmenu, ncnt – 1, mf_byposition or mf_remove
removemenu hsysmenu, ncnt – 2, mf_byposition or mf_remove ‘ remove o menu separador
drawmenubar application.hwnd
‘ força a barra de títulos a se atualizar, _ desabilitando o botão x
application.caption = ” botÃo fechar desabilitado ”
end if
end if
end subsub habilitax()
dim hsysmenu as long, ncnt as long
hsysmenu = getsystemmenu(application.hwnd, true)
‘ força a barra de títulos a se atualizar, _ habilitando o botão x
application.caption = ” botÃo voltou !!!! ”end sub
sub mostramenucontrole32()
dim windowstyle as long
dim hwnd as integer
dim windowname as string
dim result as variant
windowname = application.captionhwnd = findwindow32(0&, byval windowname)
windowstyle = getwindowlong32(hwnd, gwl_style)
windowstyle = windowstyle or ws_sysmenu
result = setwindowlong32(hwnd, gwl_style, windowstyle)‘ força a barra de títulos a se atualizar, retornando os botões
application.caption = “botÕes voltaram !!! ”end sub
sub retirarmenucontrole32()
dim windowstyle as long
dim hwnd as integer
dim windowname as string
dim result as variant
windowname = application.captionhwnd = findwindow32(0&, byval windowname)
windowstyle = getwindowlong32(hwnd, gwl_style)
windowstyle = windowstyle and (not ws_sysmenu)
result = setwindowlong32(hwnd, gwl_style, windowstyle)‘ força a barra de títulos a se atualizar, ocultando os botões
application.caption = ” sem nenhum botÃo na barra ”end sub
aguardo resposta!
obrigado por enquanto! -
9 de Setembro de 2011 às 15:47 #994AnónimoInactivo
galerinha,
por falar em ocultar a barra de ferramenta e tudo mais. eu sempre uso a programação a seguir.
incluindo até desabilitar o “esc”, pois se notarem, a programação oculta tudo, porem se o usuario clicar o “esc” do teclado, volta ao normal algumas coisas.entretanto, ainda não estou totalmente feliz .. rsrs
da forma em que estou utilizando a programação, se der duplo click no “cabeçalho/titulo”, o excel volta ao normal ….
alguém sabe desabilitar tambem essa função??
espero que tenham entendido …
abs!
________________________________________
sub auto_open()application.screenupdating = false
dim barras, ntela, cont
on error resume nextfor each barras in application.commandbars
barras.enabled = true
next
application.displayfullscreen = true
activewindow.displayheadings = false
application.displayformulabar = false
activewindow.displayhorizontalscrollbar = false
activewindow.displayverticalscrollbar = false
activewindow.displayworkbooktabs = false
application.displaystatusbar = false
application.displayalerts = falseapplication.onkey “{escape}”, “”
range(“a1”).select
activeworkbook.saveapplication.screenupdating = true
-
-
AutorArtigos
- Tem de iniciar sessão para responder a este tópico.