Boa noite!
Tenho uma planilha no Excel que contém 2 botões. Um para inserir imagens e outro para retornar à página inicial.
Quando eu for bloquear a planilha para edições, gostaria que o botão para inserir imagens retornasse uma mensagem personalizada de erro (Ex.: Entre em contato com o administrador) se alguém tentasse utilizá-lo.
Alguém poderia me ajudar com um código para essa solução?
Abaixo está o código do botão para inserir imagem que uso na minha planilha.
Quando ela está bloqueada e uso este botão ele abre a caixa de inserção de imagens e me deixa selecionar uma imagem mas o confirmar a inserção ele retornar com o erro 1004 já com a opção de depurar bloqueada (excelente até aí, mas eu gostaria de uma mensagem personalizada):
Erro em tempo de execução '1004':
Não é possível obter a propriedade Insert da classe Pictures.
Sub inserir_imagem()
Dim Pict
Dim Imagem As Object
Dim ImgFileFormat As String
ImgFileFormat = "Image Files JPG (*.jpg),*.jpg, Image Files GIF (*.gif),*.gif, Image Files BMP (*.bmp),*.bmp"
Pict = Application.GetOpenFilename(ImgFileFormat)
If Pict = False Then End
Set Imagem = ActiveSheet.Pictures.Insert(Pict)
Imagem.Top = ActiveCell.Top
Imagem.Left = ActiveCell.Left
Imagem.ShapeRange.LockAspectRatio = msoFalse
'12 = Quantidade de linhas...
Imagem.Height = ActiveCell.Height * 12
'5 = Quantidade de colunas...
Imagem.Width = ActiveCell.Width * 5
End Sub