Своими ручками и припомощи кусков кода из старых процедур добился желаемого результата !!!  
 
Может кому пригодится :)  
Вот мой код :  
 
'Снимок экрана из буфера в примечание ячейки  
'Дата написания 18/11/2010  
'За основу взят макрос Плекса - "Экспорт выделенного диапазона в GIF"  
Sub PrintScrinInComment()  
msg = "Данный макрос вставит рисунок из буфера в примечание ячейки " & Chr(10) & "Продолжить ? "  
Style = vbYesNo + vbInformation  
Title = "Drony 2010"  
Response = MsgBox(msg, Style, Title)  
If Response = vbYes Then  
' Предупреждение о возможности обработки только одной ячейки  
If Selection.Cells.Count <> 1 Then GoTo 10 Else GoTo 20  
10: MsgBox "Возможна работа только с ОДНОЙ ячейкой !!! ", vbYes, "Ошибка исходных данных"  
Exit Sub  
20:  
If ActiveCell.Comment Is Nothing = False Then GoTo 30 Else GoTo 40  
30: MsgBox "Активная ячейка уже имеет примечание !!!", vbYes, "Макрос остановлен"  
Exit Sub  
40:  
On Error Resume Next                                ' пропускаем ошибки  
Kill "C:\temp\TempPicture.jpg"                      ' удаляем старый файл (если он конечно был)  
   Application.ScreenUpdating = False              ' создаваемая новая книга "невидимая"  
   Workbooks.Add                                   ' создаем новую временную книгу  
   ActiveWorkbook.SaveAs Filename:= _  
                         "C:\temp\TempBook.xls"    ' сохраняем временную книгу  
   ActiveSheet.Paste                               ' вставляем из буфера  
   With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width + 8, Selection.Height + 8).Chart  
       .Paste  
       .Export Filename:="C:\temp\TempPicture" & ".jpg", FilterName:="JPG"  
   End With  
   Application.DisplayAlerts = False  
   ActiveWorkbook.ChangeFileAccess xlReadOnly  
   Kill ActiveWorkbook.FullName  
   ActiveWorkbook.Close False                      ' удаляем временную книгу  
   Application.DisplayAlerts = True  
   Application.ScreenUpdating = True  
     
' START *Предложение редактировать полученное изображение  
msg = "Хотите редактировать изображение ?"  
Style = vbYesNo + vbInformation  
Title = "Что дальше делать..."  
Response = MsgBox(msg, Style, Title)  
   
   If Response = vbYes Then  
       Dim WshShell As Object  
       Set WshShell = CreateObject("WScript.Shell")  
       Shell "mspaint.exe " & "C:\temp\TempPicture.jpg", vbMaximizedFocus  
'        Application.WindowState = xlMinimized  
       MsgBox "Если Вы завершили редактирование - нажмите Ок", vbYes, "Ожидание завершения редактирования..."  
   End If  
' END *Предложение редактировать полученное изображение  
 
ActiveCell.AddComment.Shape.Fill.UserPicture "C:\Temp\TempPicture.jpg"  
b = Application.UserName & " " & Date & " " & Time  
ActiveCell.Comment.Text Text:=Application.UserName & " " & Date & " " & Time  
End If  
 
End Sub

Андрей, со всем уважением - ничего, что вы обращаетесь на форум за бесплатной помощью и при этом жаждете:"поделиться методом которым вы "закрыли" свою надстройку("Project is unviewable")". Где здесь мораль? Посмотрите на к-во сообщений The_Prist. Это все безвозмездная помощь людям. Сравните с Вашим количеством. То есть Вы просите:"дайте мне открытый код, для того, что-бы я смог закрыть его для других"...

Нет, Дим. Я понял так же, как и ты. Просто подсмотренная закономерность - чем ниже знание Эксель, тем больше желания скрыть, запаролить, зашифровать. Я уже писал, что если у человека соображалка на месте, таких вопросов не возникнет. Сделает нигде не обсуждавшийся способ защиты. Но! Было бы что защищать. Ну не шедевры это. Тут же, на форуме надергает эпизодов и даже не вникнув до конца, как все работает, давай прятать от других. Понимаю -  работа, конкуренты. Я на работе не жлоблюсь помогать другим. И я знаю и все знают, что меня переплюнуть - хлопотное дело. Нужно быть человеком увлеченным, а не просто на работе отбывать время. А вот это редкость:-(

АнДрЕй02 извините, если задел Вас. Но этот вопрос регулярно возникает. Форум(обсуждение - см. Википедия) по определению призван коллективно решать вопросы, а не помогать скрытию, запароливанию и т.д.

KukLP, ничего страшного, я все понимаю.  
И на этой страничке обсуждать и выложить метод блокировки - было глупо.  
Но раз все такие добрые, то зачем придумели и используют эти самые блокировки?  
У меня коммерческой заинтересованности в ломании и создании защит нет.  
 
Пост создал по одному вопросу, который сам же и решил (еще и поделился).  
Потому, что когда все сработало от начала до конца и получился нужный результат - чувства переполнили..Прибежал с работы домой и поделился радостью..А может еще кому сгодится (было бы приятно).  
 
Если бы я был Великим занатоком VBA - я бы не задавал свои вопросы, а отвечал на чжие. :)  
 
Ну если все так сложно...  
то будем считать что это просто шутка такая...