Пароль на вставку изображения

Пользователь

Сообщений: 2 Регистрация: 01.01.1970

21.02.2013 10:02:27

Добрый день! вот такой вопрос возник: есть выпадающий список с ФИО работников, есть изображения с образцами подписей этих работников (список ФИО и подписи находятся на Лист2).
Необходимо, что б при выборе определенной фамилии появлялось окно с предложением ввести пароль. При правильном вводе в определенную ячейку (R31C21) вставляется изображение подписи. Да, каждой фамилии соответствует свой пароль.
p.s. excel 2007

Прикрепленные файлы

Пример.xlsx (26.96 КБ)

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

21.02.2013 10:22:08

Готовое решение не предложу (ибо наработок с вашей стороны не вижу),
но все необходимое для макроса дам:

1) вставить картинку на лист Excel
http://excelvba.ru/code/PastePictures

2) скопировать картинку с листа на лист:

Код

1 2	`Worksheets(2).Shapes("Picture 3").Copy` `Worksheets(1).Range("AE20").PasteSpecial`

3) найти картинку по адресу ячейки:

Код

Function getShape(ByRef cell As Range) As Shape
    Dim sha As Shape
    For Each sha In cell.Worksheet.Shapes
        If sha.TopLeftCell.Address = cell.Address Then
            Set getShape = sha: Exit Function
        End If
    Next sha
End Function
 
Sub КопированиеКартинки_ИзЯчейки_K9() ' Петров
    getShape(Worksheets(2).[k9]).Copy
    Worksheets(1).Range("AE20").PasteSpecial
End Sub

4) запрос пароля

Код

Sub test()
    pwd$ = InputBox("Введите пароль")
    If pwd <> "Пароль Петрова" Then Exit Sub
 
    ' далее поиск картинки с подписью Петрова, и её копирование
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

monshtadoid

Пользователь

Сообщений: 2 Регистрация: 01.01.1970

21.02.2013 11:54:15

Цитата
EducatedFool пишет: но все необходимое для макроса дам

я вот думаю, а нельзя ли воспользоваться как-то этим примером: http://planetaexcel.ru/techniques/1/39/
только непонятно, как перед непосредственно вставкой изображения запрашивать пароль...

Читают тему